program lab2_58b;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var
  x, y: real;
begin
  writeln('lab2 no.58b');
  writeln('enter a:');
  // нам вообще не нужно а, если мы решаем задачу, используя х, поэтому сократим код
  readln(x);

  // if - условный оператор, выполняющий выражение за словом then если условие верно,
  // иначе - выражение за словом else
  if x <= -1
     then y := -1/sqr(x)
     else
         if x >= 2
            then y := 4
            else y := sqr(x);

  writeln('y = ', y:5:3);
  readln;
end.

